home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mmddsr60.lha / REXX / MM_AddUser.rexx
OS/2 REXX Batch file  |  1996-04-26  |  1KB  |  57 lines
  1. /*
  2. ** $VER: MM_AddUser 0.60 (15.04.96)
  3. **
  4. ** Written by Paolo Carotenuto
  5. **
  6. */
  7. DROP MM.
  8. PARSE ARG MM.Area MM.Num
  9. MM.PathCfg='MM:Config/'
  10. MM.PrgName='MM_AddUser v0.60'
  11. MM.Copyright='(C) 1994-96 Paolo Carotenuto'
  12. MM.LogLevel=2
  13. ADDRESS 'MAILMANAGER'
  14. CALL ReadConfig()
  15. MM_ReadMsg MM.Area MM.Num MM.Msg
  16. MM_StringReq '"NickName for 'MM.Msg.From'"' 'MM.Nick'
  17. IF Rc=1 THEN EXIT
  18. Rc=Requester(MM.PrgName' -  Add to UserList?',MM.Msg.From ' ('MM.Msg.FromAddr') ' MM.Nick,'_Ok|_Cancel')
  19. IF Rc=0 THEN EXIT
  20. IF ~OPEN('In',MM.UserList,'R') THEN;DO
  21. SAY '*** Error: Can`not open userlist "'MM.UserList'"'
  22. EXIT 10
  23. END
  24. DO WHILE ~EOF('In')
  25. Linea=UPPER(READLN('In'))
  26. IF INDEX(Linea,UPPER(MM.Msg.From)) ~=0 THEN;DO
  27. Rc=Requester(MM.PrgName' -  Name Found In UserList','  ' MM.Msg.From '   -   ' MM.Msg.FromAddr'  ','_Save|_Cancel')
  28. IF Rc=1 THEN;DO
  29. CLOSE('In')
  30. CALL WriteUser()
  31. EXIT
  32. END
  33. ELSE EXIT
  34. END
  35. END
  36. CLOSE('In')
  37. CALL WriteUser()
  38. EXIT
  39. WriteUser:PROCEDURE EXPOSE MM.
  40. MM.User.=0
  41. MM.User.0='"'MM.Msg.From'"        'MM.Msg.FromAddr'    'MM.Nick
  42. MM.User.Count=1
  43. MM_WriteStem MM.UserList 'MM.User' 'APPEND'
  44. RETURN
  45. ReadConfig:PROCEDURE EXPOSE MM.
  46. MM_GetCfgPaths Config
  47. MM.UserList=Config.UserList
  48. RETURN
  49. WriteLog:PROCEDURE EXPOSE MM.
  50. PARSE ARG Testo
  51. Testo=MM.PrgName '-' Testo
  52. MM_WriteLog 'Testo' MM.LogLevel
  53. RETURN
  54. Requester:PROCEDURE EXPOSE MM.
  55. PARSE ARG Titolo,Testo,GadGets
  56. MM_Requester '"'Titolo'"' 'Testo' 'GadGets'
  57. RETURN Rc